home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilreen / dmplas / dmplas.exe / DLTEST-G.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-08-15  |  1.4 KB  |  35 lines
  1. 10 FILE$="DLTEST-G.PRN"
  2. 20 CR$=CHR$(13) :LF$=CHR$(10) :CRLF$=CR$+LF$ :ESC$=CHR$(27)
  3. 30 PRINT CRLF$:PRINT "     Creating ";FILE$;" - Please wait ";
  4. 40 OPEN "O",#1,FILE$
  5. 50 PRINT#1,ESC$;"@";"     DLTEST-G  Graphics Commands";CRLF$
  6. 60 GOTO 210
  7. 70 PRINT#1,"Graphics command ESC '*'";G;"... ";D$;D;"dpi"
  8. 80 FOR I=1 TO 3 :PRINT ".";
  9. 90 PRINT#1, ESC$;"*";CHR$(G);CHR$(242);CHR$(0);CHR$(255);
  10. 100 FOR J=1 TO 15
  11. 110 N=128:FOR K=1 TO 8:PRINT#1,CHR$(N);:N=N/2:NEXT K
  12. 120 N=1:FOR K=1 TO 8:PRINT#1,CHR$(N);:N=N*2:NEXT K
  13. 130 NEXT J: PRINT#1,CHR$(255);CRLF$;
  14. 140 PRINT#1, ESC$;"*";CHR$(G);CHR$(242);CHR$(0);CHR$(255);
  15. 150 FOR J=1 TO 15
  16. 160 N=1:FOR K=1 TO 8:PRINT#1,CHR$(N);:N=N*2:NEXT K
  17. 170 N=128:FOR K=1 TO 8:PRINT#1,CHR$(N);:N=N/2:NEXT K
  18. 180 NEXT J
  19. 190 PRINT#1,CHR$(255);CRLF$;
  20. 200 NEXT I: RETURN
  21. 210 PRINT#1, ESC$;"3";CHR$(24);
  22. 220 DATA 60,75,"or ESC 'K'...",120,150,"or ESC 'L'...",120,150,"or ESC 'Y'..."
  23. 230 DATA 240,300,"or ESC 'Z'...",80,100,"(no equivalent)",72,75,"(no equivalent)"
  24. 240 DATA 90,100,"(no equivalent)",144,150,"(no equivalent)"
  25. 250 FOR G= 0 TO 7: READ D,E,D$ :PRINT ".";
  26. 260 GOSUB 70: PRINT#1, CRLF$
  27. 270 NEXT G
  28. 280 PRINT#1, ESC$;"3";CHR$(36)
  29. 290 PRINT#1,"Note: ESC '*' 7 ... is not accepted by all dot matrix printers"
  30. 300 PRINT#1,"                    as a valid graphic command"
  31. 310 PRINT#1, CHR$(12);ESC$;"@";
  32. 320 CLOSE #1
  33. 330 SYSTEM
  34. 340 END
  35.